p4 <-ggplot(as_tibble(retornos), aes(x = Retorno)) +geom_histogram(bins =50, fill ="#ffa600", color ="white", alpha =0.7) +scale_x_continuous(labels =percent_format()) +labs(title ="Distribuição dos Retornos Diários",x ="Retorno Diário",y ="Frequência" ) +theme_minimal() +theme(plot.title =element_text(face ="bold"))ggplotly(p4)
Tabelas de Dados
Estatísticas Descritivas
Mostrar código
datatable(round(as.data.frame(estatisticas), 4),options =list(scrollX =TRUE, pageLength =5),caption ="Estatísticas descritivas para todos os preços e volume") %>%formatStyle(columns =colnames(estatisticas), fontSize ='12px')